; lodaing

loadloda

	lda $d011
	eor #$10
	sta $d011


	lda #0
	sta dosc

	lda #65
	sta temp

	ldx #50
	jsr timer

	sei
	lda #<irqloda
	ldy #>irqloda
	sta $0314
	sty $0315
	cli

lipaa	lda dosc
	beq lipaa

;	jmp *

	lda #1
	sta $d020

	sei
	
	lda #10
	sta $d012
	
	lda #<irqlspr
	ldy #>irqlspr
	sta $0314
	sty $0315
	cli

;	inc $d020


;	lda #27
	lda $d011
	ora #32+8+1+2
	and #255-4
	sta $d011


    	lda #0
        sta $dd00

        lda #$08
        sta $d018

	lda $d016
;	ora #16
	and #255-16
	sta $d016



	ldx #0
	lda #$11	;10
kurrwa	sta $c000,x
	sta $c100,x
	sta $c200,x
	sta $c300,x
	dex
	bne kurrwa



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; set up lodaing sprites
	
	LDA #0
	STA $d01d
	sta $d017


	lda #44		;0b00 + c000
	sta $c400-8
	sta $c400-7
	sta $c400-6	
	sta $c400-5	
	sta $c400-4
	sta $c400-3
	sta $c400-2	
	sta $c400-1	

	lda #6
	sta $d027
	sta $d028
	sta $d029
	sta $d02a
	sta $d02b
	sta $d02c
	sta $d02d
	sta $d02e

	lda #0
	sta $d010

	lda $d011
	eor #$10
	sta $d011

	lda #$0
	sta $d015	; wylacz spritez
	
	jsr kupaz
	sec
	rol $d015
	jsr kupaz
	sec
	rol $d015
	jsr kupaz
	sec
	rol $d015
	jsr kupaz
	sec
	rol $d015
	jsr kupaz
	sec
	rol $d015
	jsr kupaz
	sec
	rol $d015
	jsr kupaz
	sec
	rol $d015
	jsr kupaz
	sec
	rol $d015
	


	ldx #100
	jsr timer 

uha	lda $d012
	cmp #$f0
	bne uha

ldx #39  
_zakryjl1
	lda #$10
	sta $c000,x
	sta $c000+40,x
	sta $c000+80,x
	sta $c000+120,x
	sta $c000+160,x
	sta $c000+200,x
	sta $c000+240,x
	sta $c000+280,x
	sta $c000+320,x
	sta $c000+360,x
	sta $c000+400,x
	sta $c000+440,x
	sta $c000+480,x
	sta $c000+520,x
	sta $c000+560,x
	sta $c000+600,x
	sta $c000+640,x
	sta $c000+680,x
	sta $c000+720,x
	sta $c000+760,x
	sta $c000+800,x
	sta $c000+840,x
	sta $c000+880,x
	sta $c000+920,x
	sta $c000+960,x

	lda #5
	cmp $d012
	bne *-3

	lda #7
	cmp $d012
	bne *-3

	dex 
	bne _zakryjl1

	rts

zakryjloda

ldx #39  
_zakryjl2
	lda #$11
	sta $c000,x
	sta $c000+40,x
	sta $c000+80,x
	sta $c000+120,x
	sta $c000+160,x
	sta $c000+200,x
	sta $c000+240,x
	sta $c000+280,x
	sta $c000+320,x
	sta $c000+360,x
	sta $c000+400,x
	sta $c000+440,x
	sta $c000+480,x
	sta $c000+520,x
	sta $c000+560,x
	sta $c000+600,x
	sta $c000+640,x
	sta $c000+680,x
	sta $c000+720,x
	sta $c000+760,x
	sta $c000+800,x
	sta $c000+840,x
	sta $c000+880,x
	sta $c000+920,x
	sta $c000+960,x

	lda #5
	cmp $d012
	bne *-3

	lda #7
	cmp $d012
	bne *-3

	dex 
	bne _zakryjl2

	; turn off the sprites

	jsr kupaz
	clc
	rol $d015
	jsr kupaz
	clc
	rol $d015
	jsr kupaz
	clc
	rol $d015
	jsr kupaz
	clc
	rol $d015
	jsr kupaz
	clc
	rol $d015
	jsr kupaz
	clc
	rol $d015
	jsr kupaz
	clc
	rol $d015
	jsr kupaz
	clc
	rol $d015

	jsr kupaz

	rts

